home *** CD-ROM | disk | FTP | other *** search
/ Mac100% 1998 November / MAC100-1998-11.ISO.7z / MAC100-1998-11.ISO / ｵﾝﾗｲﾝｿﾌﾄ定点観測 / ﾈｯﾄﾜｰｸ⁄ｺﾐｭﾆｹｰｼｮﾝ / Jnifty Auto b3.sit / Jnifty Auto b3 / Login Script < prev    next >
Text File  |  1998-08-21  |  32KB  |  1,819 lines
  1. *****************************
  2. * Jnifty beta by Ko Tsuneta *
  3. *****************************
  4. ****************
  5. * Main Routine *
  6. ****************
  7. ***** Get Date *****
  8.   date:$date$:
  9.   set:$predate$:20$date$
  10.   set:#predate#:$predate$
  11.   strext:$string$:7:8:$predate$
  12.   if:05:$string$<>01
  13.   sub:#predate#:100
  14.   strext:$string$:5:6:#predate#
  15.   if:04:$string$==00
  16.   set:$predate$:#predate#
  17.   if:03:$string$==04
  18.   if:03:$string$==06
  19.   if:03:$string$==09
  20.   if:03:$string$==11
  21.   if:02:$string$<>02
  22.   strext:$string$:1:4:$predate$
  23.   set:#num#:$string$
  24.   mod:#num#:4
  25.   if:01:#num#<>0
  26.   set:#num#:$string$
  27.   mod:#num#:100
  28.   if:00:#num#<>0
  29.   set:#num#:$string$
  30.   mod:#num#:400
  31.   if:01:#num#<>0
  32. 00:
  33.   strext:$predate$:1:6:$predate$
  34.   set:$predate$:$predate$29
  35.   j:06
  36. 01:
  37.   strext:$predate$:1:6:$predate$
  38.   set:$predate$:$predate$28
  39.   j:06
  40. 02:
  41.   strext:$predate$:1:6:$predate$
  42.   set:$predate$:$predate$31
  43.   j:06
  44. 03:
  45.   strext:$predate$:1:6:$predate$
  46.   set:$predate$:$predate$30
  47.   j:06
  48. 04:
  49.   sub:#predate#:10000
  50.   set:$predate$:#predate#
  51.   strext:$predate$:1:4:$predate$
  52.   set:$predate$:$predate$1231
  53.   j:06
  54. 05:
  55.   sub:#predate#:1
  56.   set:$predate$:#predate#
  57. 06:
  58.   strext:$predate$:3:8:$predate$
  59.   set:$set$:--------------1
  60. ***** Maintenance? *****
  61.   set:#start#:0
  62.   week:#num#
  63.   if:10:#num#<>4
  64.   strext:$string$:5:6:$date$
  65.   set:#num#:$string$
  66.   if:10:#num#<<15
  67.   if:10:#num#>>21
  68.   time:$time$
  69.   strext:$string$:1:2:$time$
  70.   set:#num#:$string$
  71.   if:10:#num#<<01
  72.   if:10:#num#>>07
  73.   m:メンテナンス中です。^m
  74.   j:981
  75. ***** Where will I go? *****
  76. 10:
  77.   set:#go#:0
  78.   exist:11:SCRIPT:BBS.aps
  79.   j:12
  80. 11:
  81.   add:#go#:1
  82. 12:
  83.   firstfile:$filename$:POST:¥^BBS
  84.   if:13:$filename$==
  85.   add:#go#:2
  86. 13:
  87.   exist:14:SCRIPT:MES.aps
  88.   j:15
  89. 14:
  90.   add:#go#:4
  91. 15:
  92.   exist:16:SCRIPT:SEArch.aps
  93.   j:17
  94. 16:
  95.   add:#go#:8
  96. 17:
  97.   exist:18:SCRIPT:DownList.lib
  98.   j:19
  99. 18:
  100.   add:#go#:16
  101. 19:
  102.   firstfile:$filename$:POST:¥^[¥^_]*[A-Z][0-9]?[0-9]?[0-9]?[0-9]?-
  103.   if:20:$filename$==
  104.   add:#go#:32
  105. 20:
  106.   exist:21:SCRIPT:PATIO.aps
  107.   j:70
  108. 21:
  109.   add:#go#:64
  110. ***** Setting *****
  111. 70:
  112.   exist:71:SCRIPT:SETTING.aps
  113.   m:SETTING.apsが見つかりません。^m
  114.   j:981
  115. 71:
  116.   fopen:#setref#:SCRIPT:SETTING.aps
  117.   fread:#setref#:$line$
  118.   strwhere:#num#:/:$line$
  119.   if:73:#num#<>1
  120.   strext:$id$:2:9:$line$
  121.   strwhere:#num#:$id$:$i$
  122.   if:74:#num#==0
  123.   add:#num#:8
  124.   div:#num#:9
  125.   nthstr2: :$pw$:#num#:$p$
  126.   gosub:1003
  127.   if:73:$temset$<>DIAL
  128.   strmatch:$temset$:[0-9]+:$line$
  129.   set:#dial#:$temset$
  130.   if:73:#dial#>>9
  131.   set:$set$:
  132.   gosub:1003
  133.   if:73:$temset$<>DLM
  134.   gosub:1000
  135.   if:73:$temset$<>TERMINAL
  136.   gosub:1000
  137.   if:73:$temset$<>TEXTMAIL
  138.   gosub:1000
  139.   if:73:$temset$<>BINARYMAIL
  140.   gosub:1000
  141.   if:73:$temset$<>DELETEMAIL
  142.   gosub:1000
  143.   if:73:$temset$<>SENDMAIL
  144.   gosub:1000
  145.   if:73:$temset$<>FORUMOPT
  146.   gosub:1000
  147.   if:73:$temset$<>MES
  148.   gosub:1000
  149.   if:73:$temset$<>LIB
  150.   gosub:1000
  151.   if:73:$temset$<>COMMENT
  152.   gosub:1000
  153.   if:73:$temset$<>BILL
  154.   nthstr:$temset$:2:$line$
  155.   nthstr2:¥r:$temset$:1:$temset$
  156.   set:$set$:$set$-$temset$
  157.   gosub:1003
  158.   if:73:$temset$<>LOGTIME
  159.   gosub:1000
  160.   if:73:$temset$<>LOGCUT
  161.   gosub:1000
  162.   if:73:$temset$<>QUIT
  163.   nthstr:$temset$:2:$line$
  164.   if:72:$temset$==ON^m
  165.   set:$set$:$set$-0
  166.   j:80
  167. 72:
  168.   set:$set$:$set$-1
  169.   j:80
  170. 73:
  171.   m:SETTING.apsのフォーマットが正しくありません。^m
  172.   set:$set$:--------------1
  173.   j:980
  174. 74:
  175.   m:SETTING.apsにあるIDが見つかりません。^m
  176.   set:$set$:--------------1
  177.   j:980
  178. ***** Login *****
  179. 80:
  180.   exist:81:POST:__visited__forums__list__
  181.   create:JEDT:TEXT:POST:__visited__forums__list__
  182. 81:
  183.   fopen:#vflref#:POST:__visited__forums__list__
  184.   set:$mainset$:$set$
  185.   set:#times#:0
  186.   if:90:#dial#==9
  187.   dial:90:#dial#
  188.   m:回線が混雑しているようです。^m
  189.   offline:
  190.   j:980
  191. 90:
  192.   if:98:#times#>>2
  193.   t:91:3:Connection-ID|92:*|93:Login
  194.   s:^h^h
  195.   j:95
  196. 91:
  197.   gosub:1080
  198.   strwhere:#num#:¥¥::$line$
  199.   if:93:#num#<>0
  200.   add:#times#:1
  201.   s:@P^m
  202.   t:94:5:*
  203. 92:
  204.   s:C NIF
  205.   j:94
  206. 93:
  207.   s:NIFTY^m
  208.   r:Password|95:Connection-ID
  209. 94:
  210.   s:^m
  211.   t:96:5:Connection-ID|97:User-ID|98:Clear|99:Password|92:*|93:Login
  212. 95:
  213.   s:SVC
  214.   j:94
  215. 96:
  216.   if:90:#dial#<>9
  217.   closeport:
  218.   openport:
  219.   d:10
  220.   j:90
  221. 97:
  222.   s:$id$
  223.   j:94
  224. 98:
  225.   m:何らかの理由で接続できなかったようです。^m
  226.   offline:
  227.   j:980
  228. 99:
  229.   clock:reset
  230.   clock:on
  231.   line:#start#
  232.   add:#start#:2
  233.   s:$pw$^m
  234.   ftype:m
  235.   set:$mailstate$:0
  236.   set:#sendmexp#:0
  237. ***** Recive Mail *****
  238.   r:す（未読分|120:(改行でトップメニュー)|130:^j＞|980:定期保守をしております
  239.   gosub:1010
  240.   nthstr:$temset$:4:$set$
  241.   if:110:$temset$==0
  242.   gosub:1020
  243.   s:REAd NEW^m
  244.   nthstr:$temset$:6:$set$
  245. 100:
  246.   r:action:|110:^jMAIL>
  247.   gosub:1080
  248.   if:100:$line$<>action:
  249.   if:101:$temset$==0
  250.   s:*^hDELete^m
  251.   j:100
  252. 101:
  253.   s:*^hSAVe^m
  254.   j:100
  255. 110:
  256.   nthstr:$temset$:5:$set$
  257.   if:131:$temset$==0
  258.   if:111:$temset$==$mailstate$
  259.   gosub:1020
  260. 111:
  261.   line:#bstart#
  262.   s:LISt^m
  263.   add:#bstart#:3
  264.   r:^jMAIL>
  265.   line:#bend#
  266.   while:#bstart#<<#bend#
  267.     getline:$line$:#bstart#
  268.     set:$line$:$line$^m
  269.     if:112:$mailstate$==2
  270.     strwhere:#num#:¥^ +[0-9]+ +.+[01][0-9]/[0-3][0-9]  B :$line$
  271.     j:113
  272. 112:
  273.     strwhere:#num#:B - - -  [0-9A-Z]+¥¥r:$line$
  274. 113:
  275.     if:115:#num#==0
  276.     strmatch:$string$:[0-9A-Z]+¥¥r:$line$
  277.     s:DOWn PROT:BPL $string$
  278.     r:^j：
  279.     s:$string$
  280.     r:開始−
  281.     d:1
  282.     dlBplus:
  283.     r:^j：
  284.     nthstr:$temset$:6:$set$
  285.     if:114:$temset$==0
  286.     s:1^m
  287.     r:^jMAIL>
  288.     j:115
  289. 114:
  290.     s:2^m
  291.     r:^jMAIL>
  292. 115:
  293.     add:#bstart#:1
  294.     if:116:$mailstate$==1
  295.     add:#bstart#:1
  296. 116:
  297.     wend:
  298.   j:131
  299. ***** Read This Week's Announce *****
  300. 120:
  301.   gosub:1010
  302.   firstfile:$filename$:POST:¥^NEW[0-9A]
  303.   if:131:$filename$==
  304.   strext:$line$:4:31:$filename$
  305.   gosub:2420
  306.   s:$line$
  307. 121:
  308.   s:^m
  309.   r:表示終了|121:(改行で次文書　E:終了)|131:入力して下さい◆
  310. ***** Send Mail *****
  311. 130:
  312.   gosub:1010
  313. 131:
  314.   nthstr:$temset$:7:$set$
  315.   if:150:$temset$==0
  316. 132:
  317.   firstfile:$filename$:POST:¥^MAIL
  318.   if:150:$filename$==
  319.   fopen:#mesref#:POST:$filename$
  320.   fread:#mesref#:$mesline$
  321.   if:133:$mesline$<>#!MEXP^m
  322.   fread:#mesref#:$mesline$
  323.   if:133:#sendmexp#==2
  324.   set:#sendmexp#:1
  325. 133:
  326.   strwhere:#num#:#!FN:$mesline$
  327.   if:140:#num#==1
  328.   strwhere:#num#:TO:$mesline$
  329.   if:134:#num#==1
  330.   fclose:#mesref#
  331.   set:$us$:_?
  332.   gosub:2400
  333.   j:132
  334. 134:
  335.   gosub:1100
  336.   j:132
  337. 140:
  338.   strlen:#length#:$mesline$
  339.   sub:#length#:1
  340.   strext:$upfname$:5:#length#:$mesline$
  341.   exist:141:$upfname$
  342.   fclose:#mesref#
  343.   set:$us$:_?
  344.   gosub:2400
  345.   j:132
  346. 141:
  347.   set:$title$:無題 m(_ _)m^m
  348.   fread:#mesref#:$mesline$
  349.   strwhere:#num#:#!TT:$mesline$
  350.   if:143:#num#<>1
  351.   strlen:#length#:$mesline$
  352.   if:142:#length#<=5
  353.   strext:$title$:5:#length#:$mesline$
  354. 142:
  355.   fread:#mesref#:$mesline$
  356. 143:
  357.   strwhere:#num#:TO:$mesline$
  358.   if:144:#num#==1
  359.   fclose:#mesref#
  360.   set:$us$:_?
  361.   gosub:2400
  362.   j:132
  363. 144:
  364.   gosub:1100
  365.   if:132:$mailto$==$id$
  366.   s:UPLoad TYPE:BIN PROT:BPL^m
  367.   gosub:1900
  368.   t:145:10:：
  369. 145:
  370.   s:$title$
  371.   r:^j：
  372.   s:1^m
  373.   r:^j：
  374.   set:#times#:1
  375. 146:
  376.   nthstr2:,:$sendid$:#times#:$mailto$
  377.   add:#times#:1
  378.   strwhere:#num#:¥¥r:$sendid$
  379.   nthstr2:¥r:$sendid$:1:$sendid$
  380.   s:$sendid$^m
  381.   r:◆|148:^j：
  382. 147:
  383.   if:146:#num#==0
  384.   s:^m
  385.   r:^j：
  386. 148:
  387.   s:1^m
  388.   r:^j送信（1:送信する|147:^j：|132:^jMAIL>
  389.   j:148
  390. ***** Read This Week's Announce *****
  391. 150:
  392.   firstfile:$filename$:POST:¥^NEW[0-9A]
  393.   if:160:$filename$==
  394.   s:GO NEW^m
  395.   strext:$line$:4:31:$filename$
  396.   gosub:2420
  397.   r:^j＞
  398.   s:$line$
  399. 151:
  400.   s:^m
  401.   r:表示終了|151:(改行で次文書　E:終了)|160:入力して下さい◆
  402. ***** Mail to Center *****
  403. 160:
  404.   firstfile:$filename$:POST:¥^CENTER-1-0
  405.   if:170:$filename$==
  406.   s:GO SUPPORT^m
  407.   fopen:#mesref#:POST:$filename$
  408.   r:^j＞
  409.   s:4^m
  410.   r:^j＞
  411. 161:
  412.   s:1^m
  413.   r:^j＞
  414.   s:1^m
  415.   r:行頭で/E）
  416.   gosub:1800
  417.   r:^j題名 (漢字で20文字まで)|162:^j＞
  418.   s:無題 m(_ _)m^m
  419.   r:^j：
  420.   s:1^m
  421.   r:^j＞
  422. 162:
  423.   firstfile:$filename$:POST:¥^CENTER-1-0
  424.   if:161:$filename$<>
  425. ***** External Script *****
  426. 170:
  427.   isexternal:#num#
  428.   if:200:#num#==2
  429. 171:
  430.   exist:172:SCRIPT:EXTERNAL.aps
  431.   j:200
  432. 172:
  433.   external:EXTERNAL.aps
  434. ***** BBS *****
  435. 200:
  436.   if:900:#go#<<1
  437.   set:#num#:#go#
  438.   mod:#num#:2
  439.   if:210:#num#<<1
  440.   fopen:#refnum#:SCRIPT:BBS.aps
  441. 201:
  442.   fread:#refnum#:$line$
  443.   if:208:#err#<>0
  444.   if:208:$line$==/END^m
  445.   s:BBS^m
  446.   strext:$bbs$:1:1:$line$
  447.   r:^j＞
  448. 202:
  449.   s:$bbs$^m
  450.   r:^j◆|203:^j＞|204:^jBBS>
  451.   j:201
  452. 203:
  453.   strext:$bbs$:2:2:$line$
  454.   j:202
  455. 204:
  456.   nthstr:$bbs$:2:$line$
  457.   if:205:$bbs$<>Y
  458.   s:SCAn DATE:$predate$
  459.   j:206
  460. 205:
  461.   s:SCAn DATE:$date$
  462. 206:
  463.   s:^m
  464.   r:^j＞|201:^jBBS>|206:^j：
  465. 207:
  466.   nthstr:$bbs$:3:$line$
  467.   if:201:$bbs$<>R
  468.   gosub:1030
  469.   j:201
  470. 208:
  471.   fclose:#refnum#
  472. 210:
  473.   if:900:#go#<<2
  474. 211:
  475.   firstfile:$filename$:POST:¥^BBS[0-9]
  476.   if:300:$filename$==
  477.   s:BBS^m
  478.   fopen:#refnum#:POST:$filename$
  479.   fread:#refnum#:$line$
  480.   set:$bbs$:$line$
  481.   fread:#refnum#:$line$
  482.   fclose:#refnum#
  483.   set:$us$:_
  484.   gosub:2400
  485.   strext:$string$:1:1:$bbs$
  486.   r:^j＞
  487. 212:
  488.   s:$string$^m
  489.   r:^j◆|213:^j＞|214:^jBBS>
  490.   j:211
  491. 213:
  492.   strext:$string$:2:2:$bbs$
  493.   j:212
  494. 214:
  495.   strmatch:$bbsid$:[A-Z][A-Z][A-Z][0-9][0-9][0-9][0-9][0-9]:$line$
  496.   strext:$year$:1:2:$date$
  497.   strmatch:$day$:[ 1][0-9]/[0-3][0-9]:$line$
  498.   strmatch:$month$:[0-9]+:$day$
  499.   strlen:#num#:$month$
  500.   if:215:#num#>>1
  501.   set:$month$:0$month$
  502. 215:
  503.   strext:$day$:4:5:$day$
  504.   s:SCAn DATE:$year$$month$$day$^m
  505.   r:^j：|211:^jBBS>
  506.   s:$bbsid$^m
  507.   r:^j：|211:^jBBS>
  508.   s:^m
  509.   r:^j＞|211:^jBBS>
  510.   gosub:1030
  511.   j:211
  512. ***** Forum *****
  513. 300:
  514.   if:900:#go#<<4
  515.   set:#num#:#go#
  516.   mod:#num#:8
  517.   if:400:#num#<<4
  518.   fopen:#refnum#:SCRIPT:MES.aps
  519. 301:
  520.   fread:#refnum#:$roomline$
  521.   if:399:#err#<>0
  522.   if:399:$roomline$==/END^m
  523.   nthstr2:¥r:$forum$:1:$roomline$
  524.   fread:#refnum#:$roomline$
  525.   nthstr2:¥r:$roomline$:1:$roomline$
  526.   gosub:1040
  527.   if:301:$forum$==DontEnter
  528. 302:
  529.   gosub:1200
  530.   if:303:$filename$==
  531.   gosub:1300
  532.   j:302
  533. 303:
  534.   nthstr2:/:$room$:1:$roomline$
  535.   if:312:#roomon#==1
  536.   if:315:$room$==
  537.   strext:$room$:1:2:$room$
  538.   strwhere:#num#:[,-]:$room$
  539.   if:310:#num#==0
  540.   strext:$room$:1:1:$room$
  541. 310:
  542.   nthstr:$temset$:9:$set$
  543.   if:311:$temset$==0
  544.   s:MES^m
  545.   r:^j＞|320:^jFORUM>
  546. 311:
  547.   s:MES $room$^m
  548.   nthstr2:/:$room$:1:$roomline$
  549.   r:^jCCS(|320:^jFORUM>|312:^j＞
  550.   set:#roomon#:1
  551. 312:
  552.   line:#read#
  553.   s:MREad ROOM:$room$^m
  554. 313:
  555.   r: ^h^m^jCCS(|315: ^h^m^j＞|314:CCS(|314:＞
  556.   j:315
  557. 314:
  558.   add:#read#:2
  559.   line:#num#
  560.   if:315:#read#==#num#
  561.   nthstr:$temset$:2:$set$
  562.   if:313:$temset$==1
  563.   gosub:1080
  564.   if:315:$line$==CCS(N)>
  565.   if:315:$line$==CCS(P)>
  566.   if:313:$line$<>＞^m
  567. 315:
  568.   gosub:1210
  569.   if:316:$readfile$==
  570.   gosub:2200
  571.   j:315
  572. 316:
  573.   set:#num#:2
  574.   set:$title$:RMN
  575.   gosub:2300
  576.   set:#num#:3
  577.   set:$title$:RTN
  578.   gosub:2300
  579.   exist:320:SCRIPT:SEArch.aps
  580.   j:330
  581. 320:
  582.   fopen:#searef#:SCRIPT:SEArch.aps
  583. 321:
  584.   fread:#searef#:$sealine$
  585.   if:322:#err#<>0
  586.   if:322:$sealine$==/END^m
  587.   if:321:$sealine$<>$forum$^m
  588.   fread:#searef#:$sealine$
  589.   if:322:#err#<>0
  590.   if:322:$sealine$==/END^m
  591.   gosub:2000
  592. 322:
  593.   fclose:#searef#
  594. 330:
  595.   exist:331:SCRIPT:DownList.lib
  596.   j:340
  597. 331:
  598.   fopen:#downref#:SCRIPT:DownList.lib
  599. 332:
  600.   fread:#downref#:$downline$
  601.   if:333:#err#<>0
  602.   if:332:$downline$<>¥¥m$forum$^m
  603.   gosub:2100
  604. 333:
  605.   fclose:#downref#:
  606. 340:
  607.   gosub:1600
  608.   j:301
  609. 399:
  610.   fclose:#refnum#
  611. ***** Search *****
  612. 400:
  613.   if:900:#go#<<8
  614.   set:#num#:#go#
  615.   mod:#num#:16
  616.   if:500:#num#<<8
  617.   fopen:#searef#:SCRIPT:SEArch.aps
  618. 401:
  619.   fread:#searef#:$sealine$
  620.   if:499:#err#<>0
  621.   if:499:$sealine$==/END^m
  622.   nthstr2:¥r:$forum$:1:$sealine$
  623.   fread:#searef#:$sealine$
  624.   if:499:#err#<>0
  625.   if:499:$sealine$==/END^m
  626.   fseek:#vflref#:0
  627. 402:
  628.   fread:#vflref#:$line$
  629.   if:401:$line$==$forum$^m
  630.   if:402:#err#==0
  631.   gosub:1040
  632.   if:401:$forum$==DontEnter
  633.   gosub:2000
  634.   exist:410:SCRIPT:DownList.lib
  635.   j:420
  636. 410:
  637.   fopen:#downref#:SCRIPT:DownList.lib
  638. 411:
  639.   fread:#downref#:$downline$
  640.   if:412:#err#<>0
  641.   if:411:$downline$<>¥¥m$forum$^m
  642.   gosub:2100
  643. 412:
  644.   fclose:#downref#:
  645. 420:
  646.   gosub:1600
  647. 430:
  648.   gosub:1200
  649.   if:431:$filename$==
  650.   gosub:1300
  651.   j:430
  652. 431:
  653.   gosub:1210
  654.   if:401:$readfile$==
  655.   gosub:2200
  656.   j:431
  657. 499:
  658.   fclose:#searef#
  659.   set:$filename$:SEArch.aps
  660.   gosub:2410
  661. ***** Down *****
  662. 500:
  663.   if:900:#go#<<16
  664.   set:#num#:#go#
  665.   mod:#num#:32
  666.   if:600:#num#<<16
  667.   fopen:#downref#:SCRIPT:DownList.lib
  668. 501:
  669.   fread:#downref#:$downline$
  670.   if:599:#err#<>0
  671. 502:
  672.   strwhere:#num#:m:$downline$
  673.   if:501:#num#<>2
  674.   strext:$forum$:3:99:$downline$
  675.   fseek:#vflref#:0
  676. 503:
  677.   fread:#vflref#:$line$
  678.   if:501:$line$==$forum$
  679.   if:503:#err#==0
  680.   nthstr2:¥r:$forum$:1:$forum$
  681.   gosub:1040
  682.   if:501:$forum$==DontEnter
  683.   gosub:2100
  684.   firstfile:$filename$:POST:¥^[¥^_]+-LIB[0-9]
  685. 510:
  686.   gosub:1600
  687. 520:
  688.   gosub:1200
  689.   if:521:$filename$==
  690.   gosub:1300
  691.   j:520
  692. 521:
  693.   gosub:1210
  694.   if:502:$readfile$==
  695.   gosub:2200
  696.   j:521
  697. 599:
  698.   fclose:#downref#
  699.   set:$filename$:DownList.lib
  700.   gosub:2410
  701. ***** Send Massage & Read Message & Upload *****
  702. 600:
  703.   if:900:#go#<<32
  704. 601:
  705.   firstfile:$filename$:POST:¥^[¥^_]*[A-Z][0-9]?[0-9]?[0-9]?[0-9]?-
  706.   if:700:$filename$==
  707.   nthstr:$temforum$:1:$filename$
  708.   nthstr:$room$:2:$filename$
  709.   if:602:$temforum$==$forum$
  710.   set:$forum$:$temforum$
  711.   gosub:1040
  712.   if:603:$forum$==DontEnter
  713. 602:
  714.   strwhere:#num#:LIB:$room$
  715.   if:620:#num#==1
  716.   strwhere:#num#:[¥^0-9]:$room$
  717.   if:605:#num#<>0
  718.   set:#num#:$room$
  719.   if:610:#num#>>20
  720.   gosub:1300
  721.   j:601
  722. 603:
  723.   set:$us$:_?
  724.   gosub:2400
  725.   firstfile:$filename$:POST:¥^[¥^_]*[A-Z][0-9]?[0-9]?[0-9]?[0-9]?-
  726. 604:
  727.   if:601:$filename$==
  728.   nthstr:$temforum$:1:$filename$
  729.   if:603:$temforum$==$forum$
  730.   nextfile:$filename$
  731.   j:604
  732. 605:
  733.   set:$us$:_?
  734.   gosub:2400
  735.   j:601
  736. 610:
  737.   set:$readfile$:$filename$
  738.   strext:$string$:1:1:$room$
  739.   strext:$room$:2:2:$room$
  740.   if:611:$string$==4
  741.   set:$room$:1$room$
  742.   if:611:$string$==5
  743.   set:$room$:20
  744. 611:
  745.   gosub:2200
  746.   j:601
  747. 620:
  748.   strext:$uplib$:4:5:$room$
  749.   gosub:1610
  750.   j:601
  751. ***** Patio *****
  752. 700:
  753.   if:900:#go#<<64
  754.   fopen:#patioref#:SCRIPT:PATIO.aps
  755. 701:
  756.   fread:#patioref#:$line$
  757.   if:799:#err#<>0
  758.   if:799:$line$==/END^m
  759.   if:701:$line$<>/$id$^m
  760. 710:
  761.   gosub:1050
  762.   if:799:$line$==/END^m
  763.   if:730:$line$==/RMN^m
  764.   if:730:$line$==/RTN^m
  765.   gosub:1060
  766.   if:711:$patioi$==$id$
  767.   r:^j：|712:^j＞
  768.   s:$patiop$^m
  769. 711:
  770.   r:^j：|713:^j＞
  771. 712:
  772.   s:2^m
  773.   r:^j：|710:^j＞
  774.   s:^m
  775.   r:^j＞
  776.   j:710
  777. 713:
  778.   line:#num#
  779.   sub:#num#:1
  780.   getline:$line$:#num#
  781.   strwhere:#mesnum#: 1 +[0-9]+ (   0)   [01][0-9]/[0-3][0-9]   :$line$
  782.   if:714:#mesnum#==0
  783.   if:720:$filename$==
  784. 714:
  785.   gosub:1070
  786.   gosub:1400
  787.   line:#read#
  788.   s:MREad^m
  789. 715:
  790.   r: ^h^m^jPATIO(|716:PATIO(
  791.   j:720
  792. 716:
  793.   add:#read#:2
  794.   line:#num#
  795.   if:720:#read#==#num#
  796.   nthstr:$temset$:2:$set$
  797.   if:715:$temset$==1
  798.   gosub:1080
  799.   if:720:$line$==PATIO(N)>
  800.   if:715:$line$<>PATIO(P)>
  801. 720:
  802.   gosub:1050
  803.   if:799:$line$==/END^m
  804.   if:750:$line$==/RMN^m
  805.   if:750:$line$==/RTN^m
  806.   gosub:1061
  807.   if:721:$patioi$==$id$
  808.   r:^j：|722:^j＞
  809.   s:$patiop$^m
  810. 721:
  811.   r:^j：|713:^j＞
  812. 722:
  813.   s:2^m
  814.   r:^j：|720:^j＞
  815.   s:^m
  816.   r:^j＞
  817.   j:720
  818. 730:
  819.   strext:$title$:2:5:$line$
  820. 731:
  821.   gosub:1050
  822.   if:799:$line$==/END^m
  823.   if:730:$line$==/RTN^m
  824.   gosub:1060
  825.   gosub:1250
  826.   if:732:$patioi$==$id$
  827.   r:^j：|733:^j＞
  828.   s:$patiop$^m
  829. 732:
  830.   r:^j：|734:^j＞
  831. 733:
  832.   s:2^m
  833.   r:^j：|731:^j＞
  834.   s:^m
  835.   r:^j＞
  836.   j:731
  837. 734:
  838.   line:#num#
  839.   sub:#num#:1
  840.   getline:$line$:#num#
  841.   strwhere:#mesnum#: 1 +[0-9]+ (   0)   [01][0-9]/[0-3][0-9]   :$line$
  842.   if:741:$readfile$==
  843.   set:$patios$:
  844.   gosub:1070
  845. 735:
  846.   if:740:$readfile$==
  847.   nthstr:$mes$:3:$readfile$
  848.   line:#read#
  849.   s:#!$mes$^m
  850.   set:$us$:_
  851.   gosub:2430
  852.   gosub:1250
  853. 736:
  854.   r: ^h^m^jPATIO(|737:PATIO(
  855.   j:735
  856. 737:
  857.   add:#read#:2
  858.   line:#num#
  859.   if:738:#read#<>#num#
  860.   gosub:2440
  861.   j:735
  862. 738:
  863.   nthstr:$temset$:2:$set$
  864.   if:736:$temset$==1
  865.   gosub:1080
  866.   if:735:$line$==PATIO(N)>
  867.   if:735:$line$==PATIO(P)>
  868.   j:736
  869. 740:
  870.   if:743:#mesnum#==0
  871.   if:751:$filename$==
  872.   j:743
  873. 741:
  874.   if:742:#mesnum#==0
  875.   if:751:$filename$==
  876. 742:
  877.   gosub:1070
  878. 743:
  879.   gosub:1400
  880.   s:$title$
  881.   r:^j＞
  882.   s:RC ALL^m
  883.   r:^jPATIO(
  884.   j:751
  885. 750:
  886.   strext:$title$:2:5:$line$
  887. 751:
  888.   gosub:1050
  889.   if:799:$line$==/END^m
  890.   if:750:$line$==/RTN^m
  891.   gosub:1061
  892.   gosub:1250
  893.   if:752:$patioi$==$id$
  894.   r:^j：|753:^j＞
  895.   s:$patiop$^m
  896. 752:
  897.   r:^j：|734:^j＞
  898. 753:
  899.   s:2^m
  900.   r:^j：|751:^j＞
  901.   s:^m
  902.   r:^j＞
  903.   j:751
  904. 799:
  905.   fclose:#patioref#
  906. ***** Logout *****
  907. 900:
  908.   fclose:#vflref#
  909.   delete:POST:__visited__forums__list__
  910.   strext:$string$:6:6:$date$
  911.   nthstr:$temset$:12:$set$
  912.   strwhere:#num#:$string$:$temset$
  913.   if:901:#num#==0
  914.   s:GO BILL^m
  915.   r:^j＞
  916.   s:2^m
  917.   r:^j＞
  918. 901:
  919.   fread:#setref#:$line$
  920.   if:970:#err#<>0
  921.   if:970:$line$==/END^m
  922.   strwhere:#num#:/:$line$
  923.   if:901:#num#<>1
  924.   strext:$id$:2:9:$line$
  925.   strwhere:#num#:$id$:$i$
  926.   if:901:#num#==0
  927.   add:#num#:8
  928.   div:#num#:9
  929.   nthstr2: :$pw$:#num#:$p$
  930.   set:$set$:
  931.   gosub:1003
  932.   if:901:$temset$<>DLM
  933.   gosub:1000
  934.   if:901:$temset$<>TERMINAL
  935.   gosub:1000
  936.   if:901:$temset$<>TEXTMAIL
  937.   gosub:1000
  938.   if:901:$temset$<>BINARYMAIL
  939.   gosub:1000
  940.   if:901:$temset$<>DELETEMAIL
  941.   gosub:1000
  942.   if:901:$temset$<>SENDMAIL
  943.   gosub:1000
  944.   set:$set$:$set$---
  945.   if:901:$temset$<>COMMENT
  946.   gosub:1000
  947.   if:901:$temset$<>BILL
  948.   s:LOG
  949.   nthstr:$temset$:2:$line$
  950.   nthstr2:¥r:$temset$:1:$temset$
  951.   set:$set$:$set$-$temset$
  952.   nthstr:$temset$:13:$mainset$
  953.   set:$set$:$set$-$temset$
  954.   nthstr:$temset$:14:$mainset$
  955.   set:$set$:$set$-$temset$
  956.   nthstr:$temset$:15:$mainset$
  957.   set:$set$:$set$-$temset$
  958.   set:#go#:0
  959.   exist:902:SCRIPT:PATIO.aps
  960.   j:94
  961. 902:
  962.   add:#go#:64
  963.   j:94
  964. 970:
  965.   set:$set$:$mainset$
  966.   line:#end#
  967.   add:#end#:6
  968.   s:OFF^m
  969.   clock:off
  970.   t:971:5:*
  971.   j:972
  972. 971:
  973.   gosub:1080
  974.   strwhere:#num#:¥¥::$line$
  975.   if:980:#num#==0
  976. 972:
  977.   s:OFF^m
  978. 980:
  979.   fclose:#setref#
  980. 981:
  981.   append:
  982.   if:998:#start#==0
  983.   set:$filename$:Jnifty log
  984.   save:#start#:#end#:$filename$
  985.   nthstr:$temset$:14:$set$
  986.   if:983:$temset$==0
  987.   exec:Ccut:LOG:$filename$
  988.   set:$filename$:_$filename$
  989. 982:
  990.   d:10
  991.   exist:983:LOG:$filename$
  992.   j:982
  993. 983:
  994.   date:$date$:/
  995.   nthstr:$temset$:13:$set$
  996.   if:985:$temset$==1
  997.   set:#usnum#:1
  998.   rename:LOG:$filename$:$filename$.$date$
  999.   if:990:#err#==0
  1000. 984:
  1001.   add:#usnum#:1
  1002.   rename:LOG:$filename$:$filename$.$date$*#usnum#
  1003.   if:990:#err#==0
  1004.   j:984
  1005. 985:
  1006.   time:$time$:/
  1007.   rename:LOG:$filename$:$filename$.$date$.$time$
  1008. 990:
  1009.   firstfile:$filename$:POST:¥^[¥^_]+[0-9][0-9][0-9][0-9][0-9]-
  1010.   if:991:$filename$==
  1011.   set:$us$:_?
  1012.   gosub:2400
  1013.   j:990
  1014. 991:
  1015.   firstfile:$filename$:SCRIPT:¥^起動[^:]*¥¥.aps
  1016. 992:
  1017.   if:998:$filename$==
  1018.   launch:SCRIPT:$filename$
  1019.   nextfile:$filename$
  1020.   j:992
  1021. 998:
  1022.   nthstr:$temset$:15:$set$
  1023.   if:999:$temset$==1
  1024.   close:
  1025. 999:
  1026.   exit:
  1027. ****************
  1028. *  Sub Routine *
  1029. ****************
  1030. ***** Option *****
  1031. *** Setting Option ***
  1032. 1000:
  1033.   nthstr:$temset$:2:$line$
  1034.   if:1001:$temset$==ON^m
  1035.   if:1002:$temset$==NEW^m
  1036.   set:$set$:$set$-0
  1037.   j:1003
  1038. 1001:
  1039.   set:$set$:$set$-1
  1040.   j:1003
  1041. 1002:
  1042.   set:$set$:$set$-2
  1043. 1003:
  1044.   fread:#setref#:$line$
  1045.   nthstr:$temset$:1:$line$
  1046.   ret:
  1047. *** Send SET ***
  1048. 1010:
  1049.   silence:9
  1050.   recvBS:0
  1051.   nthstr:$temset$:2:$set$
  1052.   if:1011:$temset$==0
  1053.   recvBS:2
  1054.   s:SET DLM ON^m
  1055.   r:^j＞
  1056. 1011:
  1057.   nthstr:$temset$:3:$set$
  1058.   if:1019:$temset$==0
  1059.   s:SET MENu OFF^m
  1060.   r:^j＞
  1061.   s:SET PAGe OFF^m
  1062.   r:^j＞
  1063. 1019:
  1064.   ret:
  1065. *** Enter Mail ***
  1066. 1020:
  1067.   set:$mailstate$:1
  1068.   if:1021:$temset$==1
  1069.   set:$mailstate$:2
  1070.   s:GO NEW
  1071. 1021:
  1072.   s:MAIL^m
  1073.   r:^jMAIL>
  1074.   ret:
  1075. *** Read BBS ***
  1076. 1030:
  1077.   s:ALL
  1078. 1031:
  1079.   s:^m
  1080.   t:1032:5:^jnext>
  1081.   j:1031
  1082. 1032:
  1083.   gosub:1080
  1084.   if:1031:$line$<>＞
  1085.   ret:
  1086. *** Enter Forum ***
  1087. 1040:
  1088.   s:GO $forum$^m
  1089.   fwrite:#vflref#:$forum$^m
  1090.   set:#roomon#:0
  1091.   set:#libon#:0
  1092.   r:^j◆|1044:^jFORUM>|1042:^jmore>|1041:^j＞
  1093.   j:1045
  1094. 1041:
  1095.   nthstr:$temset$:8:$set$
  1096.   if:1045:$temset$==0
  1097.   s:SET MENu OFF
  1098. 1042:
  1099.   s:^m
  1100.   r:^jFORUM>|1042:^jmore>|1045:^j＞
  1101. 1043:
  1102.   s:SET PAGe OFF^m
  1103.   r:^jFORUM>
  1104.   s:SET PAUSE OFF^m
  1105.   r:^jFORUM>
  1106. 1044:
  1107.   s:SEND OFF^m
  1108.   r:^jFORUM>
  1109.   j:1049
  1110. 1045:
  1111.   set:$forum$:DontEnter
  1112. 1049:
  1113.   ret:
  1114. *** Read PATIO.aps ***
  1115. 1050:
  1116.   fread:#patioref#:$line$
  1117.   if:1051:#err#<>0
  1118.   strwhere:#num#:/[A-Z][A-Z][A-Z][0-9][0-9][0-9][0-9][0-9]¥¥r:$line$
  1119.   if:1051:#num#==1
  1120.   strwhere:#num#:/:$line$
  1121.   if:1059:#num#==1
  1122.   strmatch:$patioi$:¥^[A-Z][A-Z][A-Z][0-9][0-9][0-9][0-9][0-9]:$line$
  1123.   if:1050:$patioi$==
  1124.   nthstr2: :$patiop$:2:$line$
  1125.   nthstr2: :$patios$:3:$line$
  1126.   j:1059
  1127. 1051:
  1128.   set:$line$:/END^m
  1129. 1059:
  1130.   ret:
  1131. *** Enter or Move Patio ***
  1132. 1060:
  1133.   s:GO PATIO^m
  1134.   r:^j＞
  1135.   s:2^m
  1136.   j:1062
  1137. 1061:
  1138.   s:MOVe^m
  1139. 1062:
  1140.   r:^j：
  1141.   s:$patioi$^m
  1142.   gosub:1240
  1143.   ret:
  1144. *** Enter Patio Room ***
  1145. 1070:
  1146.   s:1^m
  1147.   if:1071:$patios$==OFF
  1148.   r:^jPATIO(
  1149.   s:SET PAUSE OFF^m
  1150. 1071:
  1151.   r:^jPATIO(
  1152.   ret:
  1153. *** Get Line ***
  1154. 1080:
  1155.   line:#num#
  1156.   getline:$line$:#num#
  1157.   ret:
  1158. ***** Send Text Mail *****
  1159. 1100:
  1160.   if:1101:$temset$==$mailstate$
  1161.   gosub:1020
  1162. 1101:
  1163.   if:1110:#sendmexp#<>1
  1164.   s:MEXP^m
  1165.   set:#sendmexp#:2
  1166.   r:^jMAIL>
  1167. 1110:
  1168.   s:COMpose^m
  1169.   strext:$mailto$:4:99:$mesline$
  1170.   r:行頭で/E）|1111:300行迄です)
  1171. 1111:
  1172.   s:$mesline$
  1173.   strwhere:#num#:,¥¥r:$mailto$
  1174.   if:1112:#num#==0
  1175.   nthstr2:¥r:$mailto$:1:$mailto$
  1176.   fread:#mesref#:$mesline$
  1177.   set:$mailto$:$mailto$$mesline$
  1178.   j:1111
  1179. 1112:
  1180.   gosub:1800
  1181.   r:^j題名 (漢字で20文字まで)|1113:終了)|1199:^jMAIL>
  1182.   s:無題 m(_ _)m^m
  1183.   r:^j：
  1184.   s:1^m
  1185.   r:^j：|1199:^jMAIL>
  1186. 1113:
  1187.   d:2
  1188.   set:$mailto$:$id$
  1189.   s:$id$^m
  1190.   r:^j：
  1191.   s:1^m
  1192.   r:^j：
  1193.   s:^m
  1194.   r:^jMAIL>
  1195. 1199:
  1196.   ret:
  1197. ***** Prepare to Send or Read Message *****
  1198. 1200:
  1199.   firstfile:$filename$:POST:¥^[¥^-_]*[A-Z][0-9]?[0-9]?[0-9]?[0-9]?-[0-9]
  1200. 1201:
  1201.   if:1209:$filename$==
  1202.   nthstr:$temforum$:1:$filename$
  1203.   if:1202:$temforum$==$forum$
  1204.   nextfile:$filename$
  1205.   j:1201
  1206. 1202:
  1207.   nthstr:$room$:2:$filename$
  1208.   strwhere:#num#:[¥^0-9]:$room$
  1209.   if:1203:#num#<>0
  1210.   set:#num#:$room$
  1211.   if:1209:#num#<=20
  1212.   nextfile:$filename$
  1213.   j:1201
  1214. 1203:
  1215.   set:$us$:_?
  1216.   gosub:2400
  1217.   nextfile:$filename$
  1218.   j:1201
  1219. 1209:
  1220.   ret:
  1221. 1210:
  1222.   firstfile:$readfile$:POST:¥^[¥^_]*[A-Z][0-9]?[0-9]?[0-9]?[0-9]?-[4-6][0-9]-
  1223.   set:$temroom$:
  1224.   gosub:1230
  1225.   set:$room$:$temroom$
  1226.   ret:
  1227. 1220:
  1228.   firstfile:$readfile$:POST:¥^[¥^_]*[A-Z][0-9]?[0-9]?[0-9]?[0-9]?-[4-6][0-9]-
  1229. 1221:
  1230.   gosub:1230
  1231.   if:1229:$readfile$==
  1232.   if:1229:$room$==$temroom$
  1233.   nextfile:$readfile$
  1234.   j:1221
  1235. 1229:
  1236.   ret:
  1237. 1230:
  1238.   if:1239:$readfile$==
  1239.   nthstr:$temforum$:1:$readfile$
  1240.   if:1231:$temforum$==$forum$
  1241.   nextfile:$readfile$
  1242.   j:1230
  1243. 1231:
  1244.   nthstr:$temroom$:2:$readfile$
  1245.   strext:$string$:1:1:$temroom$
  1246.   strext:$temroom$:2:2:$temroom$
  1247.   if:1239:$string$==4
  1248.   set:$temroom$:1$temroom$
  1249.   if:1239:$string$==5
  1250.   set:$temroom$:20
  1251. 1239:
  1252.   ret:
  1253. 1240:
  1254.   firstfile:$filename$:POST:¥^[¥^_]+[0-9][0-9][0-9][0-9][0-9]-1-
  1255. 1241:
  1256.   if:1249:$filename$==
  1257.   nthstr:$patio$:1:$filename$
  1258.   if:1249:$patioi$==$patio$
  1259.   nextfile:$filename$
  1260.   j:1241
  1261. 1249:
  1262.   ret:
  1263. 1250:
  1264.   firstfile:$readfile$:POST:¥^PT_[A-Z]+[0-9][0-9][0-9][0-9][0-9]-[49][19]-
  1265. 1251:
  1266.   if:1259:$readfile$==
  1267.   nthstr:$patio$:1:$readfile$
  1268.   strext:$patio$:4:11:$patio$
  1269.   if:1259:$patioi$==$patio$
  1270.   nextfile:$readfile$
  1271.   j:1251
  1272. 1259:
  1273.   ret:
  1274. ***** Send Message in Forum *****
  1275. 1300:
  1276.   nthstr:$room$:2:$filename$
  1277.   if:1302:#roomon#==1
  1278.   nthstr:$temset$:9:$set$
  1279.   if:1301:$temset$==0
  1280.   s:MES^m
  1281.   r:^j＞
  1282. 1301:
  1283.   s:MES $room$^m
  1284.   r:^jCCS(|1303:^jFORUM>|1303:^j＞
  1285.   set:#roomon#:1
  1286.   j:1310
  1287. 1302:
  1288.   s:RX $room$^m
  1289.   r:せん◆|1310:^jCCS(
  1290. 1303:
  1291.   set:$us$:_?
  1292.   gosub:2400
  1293.   firstfile:$filename$:POST:¥^[¥^-_]*[A-Z][0-9]?[0-9]?[0-9]?[0-9]?-[0-9]
  1294. 1304:
  1295.   if:1399:$filename$==
  1296.   nthstr:$temforum$:1:$filename$
  1297.   if:1305:$temforum$==$forum$
  1298.   nextfile:$filename$
  1299.   j:1304
  1300. 1305:
  1301.   nthstr:$temroom$:2:$filename$
  1302.   if:1303:$temroom$==$room$
  1303.   j:1399
  1304. 1310:
  1305.   gosub:1500
  1306.   strwhere:#num#:¥¥?:$us$
  1307.   firstfile:$filename$:POST:¥^[¥^-_]*[A-Z][0-9]?[0-9]?[0-9]?[0-9]?-[0-9]
  1308. 1311:
  1309.   if:1320:$filename$==
  1310.   nthstr:$temforum$:1:$filename$
  1311.   if:1312:$temforum$==$forum$
  1312.   nextfile:$filename$
  1313.   j:1311
  1314. 1312:
  1315.   nthstr:$temroom$:2:$filename$
  1316.   if:1320:$temroom$<>$room$
  1317.   if:1310:#num#<>0
  1318.   r:^j題名 (漢字で20文字まで)|1310:^jCCS(
  1319.   s:無題 m(_ _)m^m
  1320.   r:^j：
  1321.   s:1^m
  1322.   r:^jCCS(
  1323.   j:1310
  1324. 1320:
  1325.   gosub:1220
  1326.   if:1399:#num#<>0
  1327.   r:^j題名 (漢字で20文字まで)|1399:^jCCS(
  1328.   s:無題 m(_ _)m^m
  1329.   r:^j：
  1330.   s:1^m
  1331.   r:^jCCS(
  1332.   if:1399:$readfile$==
  1333.   gosub:2210
  1334. 1399:
  1335.   ret:
  1336. ***** Send Message in Patio *****
  1337. 1400:
  1338.   if:1499:$filename$==
  1339. 1401:
  1340.   gosub:1500
  1341.   strwhere:#num#:¥¥?:$us$
  1342.   firstfile:$filename$:POST:¥^[¥^_]+[0-9][0-9][0-9][0-9][0-9]-1-
  1343. 1402:
  1344.   if:1404:$filename$==
  1345.   nthstr:$patio$:1:$filename$
  1346.   if:1403:$patioi$==$patio$
  1347.   nextfile:$filename$
  1348.   j:1402
  1349. 1403:
  1350.   if:1401:#num#<>0
  1351.   r:^j題名 (漢字で20文字まで)|1401:^jPATIO(
  1352.   s:無題 m(_ _)m^m
  1353.   r:^j：
  1354.   s:1^m
  1355.   r:^jPATIO(
  1356.   j:1401
  1357. 1404:
  1358.   if:1499:#num#<>0
  1359.   r:^j題名 (漢字で20文字まで)|1499:^jPATIO(
  1360.   s:無題 m(_ _)m^m
  1361.   r:^j：
  1362.   s:1^m
  1363.   r:^jPATIO(
  1364. 1499:
  1365.   ret:
  1366. ***** Comment or Message? *****
  1367. 1500:
  1368.   nthstr:$mes$:3:$filename$
  1369.   if:1502:$mes$==
  1370.   strwhere:#num#:700[0-9][0-9]:$mes$
  1371.   if:1502:#num#==1
  1372.   s:RE $mes$^m
  1373.   r:下さい◆|1501:◆|1503:行頭で/E）
  1374.   j:1510
  1375. 1501:
  1376.   nthstr:$temset$:11:$set$
  1377.   if:1510:$temset$==0
  1378. 1502:
  1379.   s:SAY^m
  1380.   r:^j：|1510:◆
  1381.   s:1^m
  1382.   r:行頭で/E）
  1383. 1503:
  1384.   fopen:#mesref#:POST:$filename$
  1385.   gosub:1800
  1386.   j:1599
  1387. 1510:
  1388.   set:$us$:_?
  1389.   gosub:2400
  1390. 1599:
  1391.   ret:
  1392. ***** Prepare to Upload to Library *****
  1393. 1600:
  1394.   firstfile:$filename$:POST:¥^[¥^_]+-LIB[0-9]
  1395. 1601:
  1396.   if:1699:$filename$==
  1397.   nthstr:$temforum$:1:$filename$
  1398.   if:1602:$temforum$==$forum$
  1399.   nextfile:$filename$
  1400.   j:1601
  1401. 1602:
  1402.   nthstr:$uplib$:2:$filename$
  1403.   strext:$uplib$:4:5:$uplib$
  1404. 1610:
  1405.   fopen:#mesref#:POST:$filename$
  1406.   fread:#mesref#:$mesline$
  1407.   strwhere:#num#:#!FN:$mesline$
  1408.   if:1620:#num#<>1
  1409.   strlen:#length#:$mesline$
  1410.   sub:#length#:1
  1411.   strext:$upfname$:5:#length#:$mesline$
  1412.   exist:1611:$upfname$
  1413.   j:1620
  1414. 1611:
  1415.   fread:#mesref#:$mesline$
  1416.   strwhere:#num#:#!TT:$mesline$
  1417.   if:1620:#num#<>1
  1418.   strlen:#length#:$mesline$
  1419.   if:1620:#length#<=5
  1420.   strext:$dataname$:5:#length#:$mesline$
  1421.   fread:#mesref#:$mesline$
  1422.   strwhere:#num#:#!KY:$mesline$
  1423.   if:1620:#num#<>1
  1424.   strlen:#length#:$mesline$
  1425.   if:1620:#length#<=5
  1426.   strwhere:#num#:,:$mesline$
  1427.   if:1620:#num#==5
  1428.   if:1612:#libon#==1
  1429.   nthstr:$temset$:10:$set$
  1430.   if:1612:$temset$==0
  1431.   s:LIB^m
  1432.   r:^j＞
  1433. 1612:
  1434.   s:LIB $uplib$^m
  1435.   set:$lib$:$uplib$
  1436.   strext:$mesline$:5:#length#:$mesline$
  1437.   r:^jLIB>
  1438.   gosub:1700
  1439.   j:1600
  1440. 1620:
  1441.   fclose:#mesref#
  1442.   set:$us$:_?
  1443.   gosub:2400
  1444. 1699:
  1445.   ret:
  1446. ***** Upload to Library *****
  1447. 1700:
  1448.   s:UPLoad PROT:BPL TYPE:BIN^m
  1449.   set:#keynum#:1
  1450.   r:^j：|1714:^jLIB>
  1451.   s:$dataname$
  1452.   r:^j：
  1453.   s:1^m
  1454.   r:^j：
  1455. 1701:
  1456.   nthstr2:,:$key$:#keynum#:$mesline$
  1457.   nthstr2:¥r:$key$:1:$key$
  1458.   if:1702:$key$==
  1459.   s:$key$^m
  1460.   add:#keynum#:1
  1461.   r:^j：
  1462.   s:1^m
  1463.   r:^j：|1703:行頭で/E)
  1464.   j:1701
  1465. 1702:
  1466.   s:^m
  1467.   r:行頭で/E)
  1468. 1703:  
  1469.   gosub:1800
  1470.   r:^j：
  1471.   s:1^m
  1472.   firstfile:$filename$:POST:¥^[¥^_]+-LIB[0-9]
  1473.   gosub:1900
  1474.   t:1710:10:LIB>
  1475. 1710:
  1476.   if:1799:$filename$==
  1477.   nthstr:$temforum$:1:$filename$
  1478.   if:1711:$temforum$==$forum$
  1479.   nextfile:$filename$
  1480.   j:1710
  1481. 1711:
  1482.   nthstr:$uplib$:2:$filename$
  1483.   strext:$uplib$:4:5:$uplib$
  1484.   if:1712:$uplib$==$lib$
  1485.   nextfile:$filename$
  1486.   j:1710
  1487. 1712:
  1488.   fopen:#mesref#:POST:$filename$
  1489.   fread:#mesref#:$mesline$
  1490.   strwhere:#num#:#!FN:$mesline$
  1491.   if:1714:#num#<>1
  1492.   strlen:#length#:$mesline$
  1493.   sub:#length#:1
  1494.   strext:$upfname$:5:#length#:$mesline$
  1495.   exist:1713:$upfname$
  1496.   j:1714
  1497. 1713:
  1498.   fread:#mesref#:$mesline$
  1499.   strwhere:#num#:#!TT:$mesline$
  1500.   if:1714:#num#<>1
  1501.   strlen:#length#:$mesline$
  1502.   if:1714:#length#<=5
  1503.   strext:$dataname$:5:#length#:$mesline$
  1504.   fread:#mesref#:$mesline$
  1505.   strwhere:#num#:#!KY:$mesline$
  1506.   if:1714:#num#<>1
  1507.   strlen:#length#:$mesline$
  1508.   if:1714:#length#<=5
  1509.   strwhere:#num#:,:$mesline$
  1510.   if:1714:#num#==5
  1511.   strext:$mesline$:5:#length#:$mesline$
  1512.   j:1700
  1513. 1714:
  1514.   fclose:#mesref#
  1515.   set:$us$:_?
  1516.   gosub:2400
  1517. 1799:
  1518.   ret:
  1519. ***** Send Message *****
  1520. 1800:
  1521.   fread:#mesref#:$mesline$
  1522.   if:1801:#err#<>0
  1523.   if:1801:$mesline$==/POST^m
  1524.   s:$mesline$
  1525.   j:1800
  1526. 1801:
  1527.   s:/POST^m
  1528.   fclose:#mesref#
  1529.   set:$us$:_
  1530.   gosub:2400
  1531.   ret:
  1532. ***** Upload *****
  1533. 1900:
  1534.   gettype:$string$:UP:$upfname$
  1535.   if:1901:$string$<>TEXT
  1536.   getcreator:$string$:UP:$upfname$
  1537.   if:1901:$string$<>ttxt
  1538.   ftype:b
  1539. 1901:
  1540.   r:^j：
  1541.   s:$upfname$^m
  1542.   r:開始−
  1543.   d:1
  1544.   ulBplus:$upfname$
  1545.   ftype:m
  1546.   ret:
  1547. ***** Search in Library *****
  1548. 2000:
  1549.   s:LIB^m
  1550.   set:#libon#:1
  1551.   r:^j＞
  1552.   if:2001:$sealine$==^m
  1553.   s:SEArch $sealine$
  1554.   j:2099
  1555. 2001:
  1556.   s:SEArch^m
  1557. 2099:
  1558.   r:^j＞
  1559.   ret:
  1560. ***** Download from Library *****
  1561. 2100:
  1562.   fread:#downref#:$downline$
  1563.   if:2199:#err#<>0
  1564.   strwhere:#num#:[0-9]+-[0-9]:$downline$
  1565.   if:2199:#num#<>1
  1566.   nthstr:$lib$:1:$downline$
  1567.   set:$temlib$:$lib$
  1568.   if:2102:#libon#==1
  1569.   nthstr:$temset$:10:$set$
  1570.   if:2102:$temset$==0
  1571.   s:LIB^m
  1572.   r:^j＞
  1573. 2102:
  1574.   s:LIB $lib$^m
  1575.   r:せん◆|2104:^jLIB>
  1576. 2103:
  1577.   fread:#downref#:$downline$
  1578.   if:2199:#err#<>0
  1579.   strwhere:#num#:[0-9]+-[0-9]:$downline$
  1580.   if:2199:#num#<>1
  1581.   nthstr:$temlib$:1:$downline$
  1582.   if:2103:$temlib$==$lib$
  1583.   j:2102
  1584. 2104:
  1585.   nthstr:$file$:2:$downline$
  1586.   nthstr2:¥r:$file$:1:$file$
  1587.   nthstr2: :$file$:1:$file$
  1588.   s:DOWn PROT:BPL $file$^m
  1589.   r:^j：|2110:^jLIB>
  1590.   s:1^m
  1591.   r:^j：
  1592.   s:$forum$_$lib$($file$)^m
  1593.   r:開始−
  1594.   d:1
  1595.   dlBplus:
  1596.   r:^jLIB>
  1597. 2110:
  1598.   fread:#downref#:$downline$
  1599.   if:2111:#err#<>0
  1600.   strwhere:#num#:[0-9]+-[0-9]:$downline$
  1601.   if:2111:#num#<>1
  1602.   nthstr:$temlib$:1:$downline$
  1603.   if:2104:$temlib$==$lib$
  1604. 2111:
  1605.   firstfile:$filename$:POST:¥^[¥^_]+-LIB[0-9]
  1606. 2112:
  1607.   if:2115:$filename$==
  1608.   nthstr:$uplib$:2:$filename$
  1609.   strext:$uplib$:4:5:$uplib$
  1610.   if:2113:$uplib$==$lib$
  1611.   nextfile:$filename$
  1612.   j:2112
  1613. 2113:
  1614.   fopen:#mesref#:POST:$filename$
  1615.   fread:#mesref#:$mesline$
  1616.   strwhere:#num#:#!FN:$mesline$
  1617.   if:2116:#num#<>1
  1618.   strlen:#length#:$mesline$
  1619.   sub:#length#:1
  1620.   strext:$upfname$:5:#length#:$mesline$
  1621.   exist:2114:$upfname$
  1622.   j:2116
  1623. 2114:
  1624.   fread:#mesref#:$mesline$
  1625.   strwhere:#num#:#!TT:$mesline$
  1626.   if:2116:#num#<>1
  1627.   strlen:#length#:$mesline$
  1628.   if:2116:#length#<=5
  1629.   strext:$dataname$:5:#length#:$mesline$
  1630.   fread:#mesref#:$mesline$
  1631.   strwhere:#num#:#!KY:$mesline$
  1632.   if:2116:#num#<>1
  1633.   strlen:#length#:$mesline$
  1634.   if:2116:#length#<=5
  1635.   strwhere:#num#:,:$mesline$
  1636.   if:2116:#num#==5
  1637.   strext:$mesline$:5:#length#:$mesline$
  1638.   gosub:1600
  1639. 2115:
  1640.   if:2199:$temlib$==$lib$
  1641.   set:$lib$:$temlib$
  1642.   j:2102
  1643. 2116:
  1644.   fclose:#downref#
  1645.   set:$us$:_?
  1646.   gosub:2400
  1647.   j:2111
  1648. 2199:
  1649.   ret:
  1650. ***** Read Message in Forum *****
  1651. 2200:
  1652.   if:2202:#roomon#==0
  1653.   s:RX $room$^m
  1654.   r:せん◆|2210:^jCCS(
  1655. 2201:
  1656.   set:$us$:_?
  1657.   gosub:2430
  1658.   gosub:1220
  1659.   if:2201:$readfile$<>
  1660.   j:2299
  1661. 2202:
  1662.   nthstr:$temset$:9:$set$
  1663.   if:2203:$temset$==0
  1664.   s:MES^m
  1665.   r:^j＞
  1666. 2203:
  1667.   s:MES $room$^m
  1668.   r:^jCCS(|2201:^jFORUM>|2201:^j＞
  1669.   set:#roomon#:1
  1670. 2210:
  1671.   nthstr:$mes$:3:$readfile$
  1672.   line:#read#
  1673.   s:#!$mes$^m
  1674.   set:$us$:_
  1675.   gosub:2430
  1676.   gosub:1220
  1677. 2211:
  1678.   r: ^h^m^jCCS(|2212:CCS(
  1679.   j:2220
  1680. 2212:
  1681.   add:#read#:2
  1682.   line:#num#
  1683.   if:2213:#read#<>#num#
  1684.   gosub:2440
  1685.   j:2220
  1686. 2213:
  1687.   nthstr:$temset$:2:$set$
  1688.   if:2211:$temset$==1
  1689.   gosub:1080
  1690.   if:2220:$line$==CCS(N)>
  1691.   if:2211:$line$<>CCS(P)>
  1692. 2220:
  1693.   if:2210:$readfile$<>
  1694. 2299:
  1695.   ret:
  1696. ***** Read Title in Forum *****
  1697. 2300:
  1698.   nthstr2:/:$temroom$:#num#:$roomline$
  1699.   if:2399:$temroom$==
  1700. 2301:
  1701.   nthstr2:,:$room$:1:$temroom$
  1702.   if:2302:#roomon#==0
  1703.   s:RX $room$^m
  1704.   r:未読 :0−|2306:せん◆|2304:^jCCS(
  1705.   d:2
  1706.   j:2306
  1707. 2302:
  1708.   nthstr:$temset$:9:$set$
  1709.   if:2303:$temset$==0
  1710.   s:MES^m
  1711.   r:^j＞
  1712. 2303:
  1713.   s:MES $room$^m
  1714.   r:未読 :0−|2306:せん◆|2304:^jCCS(
  1715.   d:2
  1716.   set:#roomon#:1
  1717.   j:2306
  1718. 2304:
  1719.   set:#roomon#:1
  1720.   s:$title$^m
  1721. 2305:
  1722.   r:^j＞|2306:^jCCS(
  1723.   s:RC ALL^m
  1724.   j:2305
  1725. 2306:
  1726.   strwhere:#num#:,:$temroom$
  1727.   add:#num#:1
  1728.   strlen:#length#:$temroom$
  1729.   strext:$temroom$:#num#:#length#:$temroom$
  1730.   if:2301:#num#>>1
  1731. 2399:
  1732.   ret:
  1733. ***** Rename File *****
  1734. 2400:
  1735.   rename:POST:$filename$:$us$$filename$
  1736.   if:2409:#err#==0
  1737.   if:2401:#err#==-37
  1738.   set:$us$:_$us$
  1739.   j:2400
  1740. 2401:
  1741.   strlen:#usnum#:$us$
  1742.   strext:$us$:#usnum#:#usnum#:$us$
  1743.   set:#usnum#:0
  1744. 2402:
  1745.   rename:POST:$filename$:_$us$#usnum#$filename$
  1746.   if:2409:#err#==0
  1747.   add:#usnum#:1
  1748.   j:2402
  1749. 2409:
  1750.   ret:
  1751. 2410:
  1752.   set:$us$:_
  1753.   set:#usnum#:0
  1754. 2411:
  1755.   rename:SCRIPT:$filename$:$us$$filename$
  1756.   if:2419:#err#==0
  1757.   if:2412:#err#==-37
  1758.   set:$us$:_$us$
  1759.   j:2411
  1760. 2412:
  1761.   rename:SCRIPT:$filename$:_#usnum#$filename$
  1762.   if:2419:#err#==0
  1763.   add:#usnum#:1
  1764.   j:2412
  1765. 2419:
  1766.   ret:
  1767. 2420:
  1768.   set:$us$:_
  1769.   set:#usnum#:0
  1770. 2421:
  1771.   rename:POST:$filename$:$us$$line$
  1772.   if:2429:#err#==0
  1773.   if:2422:#err#==-37
  1774.   set:$us$:_$us$
  1775.   j:2421
  1776. 2422:
  1777.   rename:POST:$filename$:$us$#usnum#
  1778.   if:2429:#err#==0
  1779.   add:#usnum#:1
  1780.   j:2422
  1781. 2429:
  1782.   ret:
  1783. 2430:
  1784.   set:$string$:$readfile$
  1785. 2431:
  1786.   rename:POST:$string$:$us$$string$
  1787.   if:2439:#err#==0
  1788.   if:2432:#err#==-37
  1789.   set:$us$:_$us$
  1790.   j:2431
  1791. 2432:
  1792.   strlen:#usnum#:$us$
  1793.   strext:$us$:#usnum#:#usnum#:$us$
  1794.   set:#usnum#:0
  1795. 2433:
  1796.   rename:POST:$string$:_$us$#usnum#$string$
  1797.   if:2439:#err#==0
  1798.   add:#usnum#:1
  1799.   j:2433
  1800. 2439:
  1801.   ret:
  1802. 2440:
  1803.   set:$string$:$us$$string$
  1804.   set:$us$:_
  1805.   set:#usnum#:0
  1806. 2441:
  1807.   rename:POST:$string$:$us$?$string$
  1808.   if:2449:#err#==0
  1809.   if:2442:#err#==-37
  1810.   set:$us$:_$us$
  1811.   j:2441
  1812. 2442:
  1813.   rename:POST:$string$:_?#usnum#$string$
  1814.   if:2449:#err#==0
  1815.   add:#usnum#:1
  1816.   j:2442
  1817. 2449:
  1818.   ret:
  1819.